(file-relative-name): Fix last change.

diff --git a/lisp/files.el b/lisp/files.el
index a36006f232003a5a9b7f22e455d33452631588e3..eb6d1635fc93fbcfd45b4a47e54657681a8d7eeb 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2940,7 +2940,7 @@ on a DOS/Windows machine, it returns FILENAME on expanded form."
                                     directory nil nil case-fold-search))
              ;; We matched within FILENAME's directory part.
              ;; Add the rest of FILENAME onto ANCESTOR.
-             (let ((rest (substring filename (match-end 0))))
+             (let ((rest (substring filename (length directory))))
                (if (and (equal ancestor ".") (not (equal rest "")))
                    ;; But don't bother with ANCESTOR if it would give us `./'.
                    rest